home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / common.cst / 00008_buttonGMstage.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  1.0 KB  |  71 lines
  1. property meSprite, meMember, frames, goAway
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   goAway = 0
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   if meMember.type = #flash then
  9.     frames = meMember.frameCount
  10.   end if
  11. end
  12.  
  13. on mouseDown me
  14.   cursor(4)
  15. end
  16.  
  17. on mouseUpOutside me
  18.   cursor(0)
  19. end
  20.  
  21. on mouseUp me
  22.   goAway = 1
  23.   if meMember.type = #flash then
  24.     if meSprite.playing = 0 then
  25.       meSprite.play()
  26.     end if
  27.   end if
  28.   monkey.callFromStage()
  29. end
  30.  
  31. on exitFrame me
  32.   if goAway = 1 then
  33.     goOk = 0
  34.     if meMember.type = #flash then
  35.       if meSprite.frame = frames then
  36.         goOk = 1
  37.       end if
  38.     else
  39.       goOk = 1
  40.     end if
  41.     if goOk = 1 then
  42.       monkey.traceMonkey()
  43.       sound(2).stop()
  44.       v = meMember.name
  45.       go frame v of movie "ingm"
  46.     end if
  47.   end if
  48. end
  49.  
  50. on mouseEnter me
  51.   if meMember.type = #flash then
  52.     meMember.sound = 1
  53.   end if
  54.   cursor[500, 501]
  55. end
  56.  
  57. on mouseLeave me
  58.   if meMember.type = #flash then
  59.     meMember.sound = 0
  60.   end if
  61.   cursor 0
  62. end
  63.  
  64. on endSprite me
  65.   cursor 0
  66. end
  67.  
  68.  
  69.  
  70.  
  71.